home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / e / amigae33a.lha / E_v3.3a / Src.lha / Src / Class / ScrollWin / textview.e < prev   
Text File  |  1994-11-09  |  394b  |  16 lines
  1. -> show a textfile in a nice juicy scrolling window
  2.  
  3. MODULE 'tools/file', 'tools/exceptions', 'class/sctext'
  4.  
  5. PROC main() HANDLE
  6.   DEF m,l,n,list,sc=NIL:PTR TO scrolltext
  7.   m,l:=readfile(arg)
  8.   list:=stringsinfile(m,l,n:=countstrings(m,l))
  9.   NEW sc.settext(list,100)
  10.   sc.open('TextView v0.1',20,20,300,150)
  11.   WHILE sc.handle()=FALSE DO Wait(-1)
  12. EXCEPT DO
  13.   END sc
  14.   report_exception()
  15. ENDPROC
  16.